99 POKE650,100                                                              
100 REM (C) PET BENELUX
110 REM     EXCHANGE
120 REM     NETHERLANDS
121 REM**TRANSLATED FROM THE DUTCH,     REVISED, UPGRADED & ADAPTED TO THE
122 REM**COMMODORE 64 BY ROGER D. BURGE,#2667, TORONTO PET USERS GROUP
123 REM**CANADA
130 VR=1024 :REM VIDEO RAM
140 KR=55296:CC=KR-VR
150 A3=506
160 POKE53280,2:POKE53281,10
170 PRINT"[147]***** BARRICADE *****
180 [153]"STOP   YOU HAVE 5 BALLS"
190 [153]"YOU MUST STOP THEM"
200 [153]"    FROM MOVING BY"
210 [153]"    BLOCKING THEM."
220 [153]"USE ANY KEY TO CREATE":[153]"        A BLOCK"
230 [153]"RIGHT BEHIND THE BALL"
240 [153]"  AND TRY TO TRAP IT"
260 [153]"PRESS ANY KEY TO START"
270 [161]A$:[139]A$[178]""[167]270
280 A2[178]0:E[178]102:F[178]81:G[178]32:I[178]1:H[178]40:J[178]20
290 [151]53281,15:[151]53280,.
300 [153]"LOADSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";
310 [129]II[178]1[164]23:[153]"SPC(                                      SPC(";:[130]
320 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(CMDCMDCMDCMDSAVESPC("
330 [129]SS[178]1[164]10:[161]A$:[130]:N[178]VR[170]97:C[178]0
340 P[178]I:[141]430:P[178]H:[141]430
350 P[178][171]I:[141]430:P[178][171]H:[141]430
360 [139]X[178]N[137]380
370 X[178]N:[137]340
380 P[178][171]I:[141]430:P[178]H:[141]430
390 P[178]I:[141]430:P[178][171]H:[141]430
400 [139]Y[177]J[137]490
410 [139]X[178]N[137]340
420 X[178]N:[137]380
430 N[178]N[170]P:A[178][194](N)
440 [129]U[178]1[164]25:[130]
450 [139]A[178]E[167]N[178]N[171]P:Y[178]Y[170]I:[142]
460 [151](N),F:[151]KR[170](N[171]VR),4:[151](N[171]P),G:Y[178]I:[161]B$
470 [139]B$[179][177]""[167][151](N[171]P),E:[151]KR[170](N[171]VR)[171]P,6:C[178]C[170]I
480 [137]430
490 N[178]VR[170][181](([187](1))[172]505):N1[178][194](N)
500 [139]N1[178]E[137]490
510 [139]N1[178]81[137]490
520 A2[178]A2[170]1:[139]A2[179]5[167][129]P[178]0[164]9:[161]Y$:[130]P:[137]340
530 [139]A3[177]C[167]A3[178]C
540 [151]53281,11:[153]"LOAD**** BARRICADE ****":[153]"BEST SCORE IS";A3
550 [153]"YOUR SCORE IS";C
560 [153]"PLAY AGAIN?"
570 [129]I[178]1[164]50:[161]A$:[130]
580 [161]A$:[139]A$[178]""[167]580
590 [139]A$[178]"Y"[167]160
591 [139]A$[178]"N"[167][151]650,.:[153]"LOAD":[128]
592 [137]580